home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
ada
/
c01oop.zip
/
ADAWKBK
/
SOL1-2.ADA
< prev
next >
Wrap
Text File
|
1992-08-25
|
493b
|
22 lines
-- Problem 1.2
-- by Rick Conn
with Text_IO; -- context clause
procedure Display is
-- display a single quote and a double quote
begin
Text_IO.Put_Line ("First Method --");
Text_IO.Put_Line (" Single Quote: '");
Text_IO.Put_Line (" Double Quote: """);
Text_IO.Put_Line ("Alternate Method --");
Text_IO.Put (" Single Quote: "); Text_IO.Put ('''); Text_IO.New_Line;
Text_IO.Put (" Double Quote: "); Text_IO.Put ('"'); Text_IO.New_Line;
end Display;